function[SPC]=gespec1(data),

j = sqrt(-1);


HxHxr = data(6,1)-j*data(1,6);
HyHyr = data(7,2)-j*data(2,7);
HxHx = data(1,1);
HyHy = data(2,2);

SPC = [HxHx HyHy HxHxr HyHyr];
